Write a small paragraph about what you think (or know) your central research question might be for your PhD or Masters. Bold your main question, italisize the name of your study species, and be sure to include a picture of your study species/study site/or another picture. ===========================

How do land use and climate change interactively impact shellfish aquaculture?

For my dissertation reserach, I would like to understand how human impacts (warming, runoff, etc.) affect shellfish aquaculture in California and abroad. I would like to start with a lab study where I manipulate temperature levels and runoff to see how they affect mussel (Mytilus galloprovincialis) and oyster (Crassostrea pacifica) growth and also monitor the oysters and mussels benig grown in the field over multiple years and compare their growth during drought & non-drought conditions. I’m hoping to measure traits that are of interest ecologists, growers, and nutritionists to get a full scope of how these human impacts affect relevant outcomes of shellfish aquaculture.

Mussel Culture along the Pirou Beach in France

Mussel Culture along the Pirou Beach in France

Create a table that identifies the mean wind, pressure, ts_diameter, hu_diameter of each status of storm (remember to remove NAs!). Use the package htmlTable. Round each mean to only two decimal places (Hint look up the function round) ========

library(htmlTable)
## Warning: package 'htmlTable' was built under R version 3.5.3
Storm_table <- storms %>%
  na.omit(ts_diameter, hu_diameter) %>% # COULD ALSO USE drop_na HERE
  group_by(status) %>% 
  summarize(mean_wind = mean(wind), mean_pressure = mean(pressure), mean_ts = mean(ts_diameter), mean_hu = mean(hu_diameter))

Storm_table$mean_wind <- round(Storm_table$mean_wind, digits = 2)
Storm_table$mean_pressure <- round(Storm_table$mean_pressure, digits = 2)
Storm_table$mean_ts <- round(Storm_table$mean_ts, digits = 2)
Storm_table$mean_hu <- round(Storm_table$mean_hu, digits=2)

htmlTable(Storm_table)
status mean_wind mean_pressure mean_ts mean_hu
1 hurricane 87.15 966.35 288.11 72.96
2 tropical depression 28.21 1006.47 0 0
3 tropical storm 45.75 999.03 159.61 0.04

CHALLENGE Find the duration, in number of days, of every hurricane from 2010 and later, and then use one of the map functions from purrr to write a sentence saying “Hurricane X lasted Y days” for each of these storms. You can look for some help with these functions here and here.==================

library(lubridate)
## 
## Attaching package: 'lubridate'
## The following object is masked from 'package:base':
## 
##     date
storms_2010_2015 <- storms %>%
  filter(year >= 2010) %>% 
  group_by(name, year) %>% 
  summarize(duration = diff(range(day)))

storms_2010_2015
## # A tibble: 84 x 3
## # Groups:   name [?]
##    name      year duration
##    <chr>    <dbl>    <int>
##  1 Al202011  2011        1
##  2 Alberto   2012        3
##  3 Alex      2010       29
##  4 Ana       2015        2
##  5 Andrea    2013        2
##  6 Arthur    2014        4
##  7 Barry     2013        3
##  8 Beryl     2012        3
##  9 Bill      2015        2
## 10 Bonnie    2010        2
## # ... with 74 more rows
map2_chr(.x = storms_2010_2015$name, .y = storms_2010_2015$duration, function(x,y) paste("Hurricane", x, "lasted", y, "days"))
##  [1] "Hurricane Al202011 lasted 1 days" 
##  [2] "Hurricane Alberto lasted 3 days"  
##  [3] "Hurricane Alex lasted 29 days"    
##  [4] "Hurricane Ana lasted 2 days"      
##  [5] "Hurricane Andrea lasted 2 days"   
##  [6] "Hurricane Arthur lasted 4 days"   
##  [7] "Hurricane Barry lasted 3 days"    
##  [8] "Hurricane Beryl lasted 3 days"    
##  [9] "Hurricane Bill lasted 2 days"     
## [10] "Hurricane Bonnie lasted 2 days"   
## [11] "Hurricane Chantal lasted 3 days"  
## [12] "Hurricane Chris lasted 3 days"    
## [13] "Hurricane Claudette lasted 1 days"
## [14] "Hurricane Colin lasted 6 days"    
## [15] "Hurricane Cristobal lasted 6 days"
## [16] "Hurricane Danielle lasted 9 days" 
## [17] "Hurricane Danny lasted 6 days"    
## [18] "Hurricane Debby lasted 4 days"    
## [19] "Hurricane Don lasted 3 days"      
## [20] "Hurricane Dorian lasted 25 days"  
## [21] "Hurricane Edouard lasted 8 days"  
## [22] "Hurricane Eight lasted 1 days"    
## [23] "Hurricane Emily lasted 5 days"    
## [24] "Hurricane Erika lasted 4 days"    
## [25] "Hurricane Erin lasted 3 days"     
## [26] "Hurricane Ernesto lasted 9 days"  
## [27] "Hurricane Fay lasted 2 days"      
## [28] "Hurricane Fernand lasted 1 days"  
## [29] "Hurricane Fiona lasted 30 days"   
## [30] "Hurricane Five lasted 1 days"     
## [31] "Hurricane Franklin lasted 1 days" 
## [32] "Hurricane Fred lasted 30 days"    
## [33] "Hurricane Gabrielle lasted 9 days"
## [34] "Hurricane Gaston lasted 1 days"   
## [35] "Hurricane Gert lasted 3 days"     
## [36] "Hurricane Gonzalo lasted 7 days"  
## [37] "Hurricane Gordon lasted 5 days"   
## [38] "Hurricane Hanna lasted 6 days"    
## [39] "Hurricane Harvey lasted 3 days"   
## [40] "Hurricane Henri lasted 3 days"    
## [41] "Hurricane Hermine lasted 4 days"  
## [42] "Hurricane Humberto lasted 9 days" 
## [43] "Hurricane Ida lasted 9 days"      
## [44] "Hurricane Igor lasted 13 days"    
## [45] "Hurricane Ingrid lasted 5 days"   
## [46] "Hurricane Isaac lasted 30 days"   
## [47] "Hurricane Jerry lasted 29 days"   
## [48] "Hurricane Joaquin lasted 29 days" 
## [49] "Hurricane Joyce lasted 2 days"    
## [50] "Hurricane Julia lasted 8 days"    
## [51] "Hurricane Karen lasted 3 days"    
## [52] "Hurricane Karl lasted 4 days"     
## [53] "Hurricane Kate lasted 3 days"     
## [54] "Hurricane Katia lasted 30 days"   
## [55] "Hurricane Kirk lasted 30 days"    
## [56] "Hurricane Lee lasted 1 days"      
## [57] "Hurricane Leslie lasted 30 days"  
## [58] "Hurricane Lisa lasted 6 days"     
## [59] "Hurricane Lorenzo lasted 3 days"  
## [60] "Hurricane Maria lasted 10 days"   
## [61] "Hurricane Matthew lasted 3 days"  
## [62] "Hurricane Melissa lasted 1 days"  
## [63] "Hurricane Michael lasted 8 days"  
## [64] "Hurricane Nadine lasted 29 days"  
## [65] "Hurricane Nate lasted 4 days"     
## [66] "Hurricane Nicole lasted 1 days"   
## [67] "Hurricane Nine lasted 3 days"     
## [68] "Hurricane Ophelia lasted 29 days" 
## [69] "Hurricane Oscar lasted 2 days"    
## [70] "Hurricane Otto lasted 3 days"     
## [71] "Hurricane Patty lasted 2 days"    
## [72] "Hurricane Paula lasted 4 days"    
## [73] "Hurricane Philippe lasted 29 days"
## [74] "Hurricane Rafael lasted 5 days"   
## [75] "Hurricane Richard lasted 5 days"  
## [76] "Hurricane Rina lasted 5 days"     
## [77] "Hurricane Sandy lasted 7 days"    
## [78] "Hurricane Sean lasted 3 days"     
## [79] "Hurricane Shary lasted 2 days"    
## [80] "Hurricane Ten lasted 1 days"      
## [81] "Hurricane Tomas lasted 30 days"   
## [82] "Hurricane Tony lasted 3 days"     
## [83] "Hurricane Two lasted 1 days"      
## [84] "Hurricane Two lasted 2 days"